JBT13 <- JBT13[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT13$Flag <- rep("" ,nrow(JBT13))#create flag column
JBT13$Comments <- rep("" ,nrow(JBT13))#create comments column
JBT13$Rainfall_Edited <- rep("" ,nrow(JBT13))#create Edited Flow column
JBT13$`L/15min` <- rep("" ,nrow(JBT13))#create L/15min column
JBT13$SiteName <- rep("JBT13",nrow(JBT13)) # make new column with site name
head(JBT13, n=10)# Show first ten lines of dataframe
library(readr)
JBT13 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT13_1.csv",skip = 1)
nrow(JBT13)
JBT13 <- JBT13[-c(1:10), ]#Delete rows with no data
nrow(JBT13)
library(dplyr)
JBT13<-JBT13 %>% filter(!(`Sample Event` == 0 & `Input Voltage` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT13)
library(readr)
JBT13 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT13_1.csv",skip = 1)
nrow(JBT13)
JBT13 <- JBT13[-c(1:10), ]#Delete rows with no data
nrow(JBT13)
library(readr)
JBT13 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT13_1.csv",skip = 1)
nrow(JBT13)
View(JBT13)
JBT13 <- JBT13[-c(1:10), ]#Delete rows with no data
nrow(JBT13)
library(dplyr)
JBT13<-JBT13 %>% filter(!(`Sample Event_1` == 0 & `Rainfall_1` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT13)
JBT13$DateTime_EDT<-as.POSIXct(JBT13$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT13 <- JBT13[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
library(readr)
JBT13 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT13_1.csv",skip = 1)
nrow(JBT13)
JBT13 <- JBT13[-c(1:10), ]#Delete rows with no data
nrow(JBT13)
library(dplyr)
JBT13<-JBT13 %>% filter(!(`Sample Event_1` == 0 & `InputVoltage_1` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT13)
library(dplyr)
JBT13<-JBT13 %>% filter(!(`Sample Event_1` == 0 & `Input Voltage_1` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT13)
JBT13$DateTime_EDT<-as.POSIXct(JBT13$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT13 <- JBT13[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT13$Flag <- rep("" ,nrow(JBT13))#create flag column
JBT13$Comments <- rep("" ,nrow(JBT13))#create comments column
JBT13$Rainfall_Edited <- rep("" ,nrow(JBT13))#create Edited Flow column
JBT13$`L/15min` <- rep("" ,nrow(JBT13))#create L/15min column
JBT13$SiteName <- rep("JBT13",nrow(JBT13)) # make new column with site name
head(JBT13, n=10)# Show first ten lines of dataframe
JBT13 <- JBT13[c(12,7,6,10,11,9,6,7)]#ORDER COLUMNS
head(JBT13, n=10)# Show first ten lines of dataframe
head(JBT13, n=10)# Show first ten lines of dataframe
JBT13 <- JBT13[c(12,7,6,10,11,9)]#ORDER COLUMNS
library(readr)
JBT13 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT13_1.csv",skip = 1)
nrow(JBT13)
JBT13 <- JBT13[-c(1:10), ]#Delete rows with no data
nrow(JBT13)
library(dplyr)
JBT13<-JBT13 %>% filter(!(`Sample Event_1` == 0 & `Input Voltage_1` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT13)
JBT13$DateTime_EDT<-as.POSIXct(JBT13$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT13 <- JBT13[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT13$Flag <- rep("" ,nrow(JBT13))#create flag column
JBT13$Comments <- rep("" ,nrow(JBT13))#create comments column
JBT13$Rainfall_Edited <- rep("" ,nrow(JBT13))#create Edited Flow column
JBT13$`L/15min` <- rep("" ,nrow(JBT13))#create L/15min column
JBT13$SiteName <- rep("JBT13",nrow(JBT13)) # make new column with site name
head(JBT13, n=10)# Show first ten lines of dataframe
JBT13 <- JBT13[c(12,7,6,10,11,8,9)]#ORDER COLUMNS
head(JBT13, n=10)#
library(padr)
library(dplyr)
JBT13<-JBT13 %>% pad('15 min')#fill 15 minute data gaps
sum(is.na(JBT13$Rainfall))
sum(is.na(JBT13$SiteName))
which(is.na(JBT13), arr.ind=TRUE)
sum(is.na(JBT13$Rainfall_1))
JBT13$Flag <- ifelse(is.na(JBT13$Rainfall_1),
"!", "")
nrow(JBT13)
write.csv(JBT13, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/JBT13 Flow Edited Through 04302018.csv ", row.names=F)
library(readr)
JBT14 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT14_1.csv",skip = 1)
nrow(JBT14)
JBT14 <- JBT14[-c(1:10), ]#Delete rows with no data
nrow(JBT14)
library(readr)
JBT14 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT14_1.csv",skip = 1)
nrow(JBT14)
#JBT14v2
library(readr)
JBT14v2 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT14v2_1.csv",skip = 1)
nrow(JBT14v2)
JBT14v2 <- JBT14v2[-c(1:10), ]#Delete rows with no data
nrow(JBT14v2)
library(readr)
JBT14v2 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT14v2_1.csv",skip = 1)
nrow(JBT14v2)
View(JBT14v2)
JBT14v2 <- JBT14v2[-c(1:10), ]#Delete rows with no data
nrow(JBT14v2)
library(dplyr)
JBT14v2<-JBT14v2 %>% filter(!(`Sample Event_1` == 0 & `Input Voltage_1` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT14v2)
JBT14v2$DateTime_EDT<-as.POSIXct(JBT14v2$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT14v2 <- JBT14v2[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT14v2$Flag <- rep("" ,nrow(JBT14v2))#create flag column
JBT14v2$Comments <- rep("" ,nrow(JBT14v2))#create comments column
JBT14v2$Rainfall_Edited <- rep("" ,nrow(JBT14v2))#create Edited Flow column
JBT14v2$`L/15min` <- rep("" ,nrow(JBT14v2))#create L/15min column
JBT14v2$SiteName <- rep("JBT14v2",nrow(JBT14v2)) # make new column with site name
head(JBT14v2, n=10)# Show first ten lines of dataframe
JBT14v2 <- JBT14v2[c(14,9,6,12,13,10,11)]#ORDER COLUMNS
head(JBT14v2, n=10)# Show first ten lines of dataframe
library(padr)
library(dplyr)
JBT14v2<-JBT14v2 %>% pad('15 min')#fill 15 minute data gaps
sum(is.na(JBT14v2$Rainfall_1))
sum(is.na(JBT14v2$SiteName))
which(is.na(JBT14v2), arr.ind=TRUE)
JBT14v2$Flag <- ifelse(is.na(JBT14v2$Rainfall_1),
"!", "")
nrow(JBT14v2)
write.csv(JBT14v2, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/JBT14v2 Flow Edited Through 04302018.csv ", row.names=F)
library(readr)
JBT16 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT16_1.csv",skip = 1)
nrow(JBT16)
JBT16 <- JBT16[-c(1:10), ]#Delete rows with no data
nrow(JBT16)
View(JBT16)
View(JBT16)
library(dplyr)
JBT16<-JBT16 %>% filter(!(`Sample Event` == 0 & `Input Voltage` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT16)
JBT16$DateTime_EDT<-as.POSIXct(JBT16$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT16 <- JBT16[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT16$Flag <- rep("" ,nrow(JBT16))#create flag column
JBT16$Comments <- rep("" ,nrow(JBT16))#create comments column
JBT16$Rainfall_Edited <- rep("" ,nrow(JBT16))#create Edited Flow column
JBT16$`L/15min` <- rep("" ,nrow(JBT16))#create L/15min column
JBT16$SiteName <- rep("JBT16",nrow(JBT16)) # make new column with site name
head(JBT16, n=10)# Show first ten lines of dataframe
JBT16 <- JBT16[c(9,4,3,7,8,5,6)]#ORDER COLUMNS
head(JBT16, n=10)
library(padr)
library(dplyr)
JBT16<-JBT16 %>% pad('15 min')#fill 15 minute data gaps
sum(is.na(JBT16$Rainfall))
sum(is.na(JBT16$SiteName))
which(is.na(JBT16), arr.ind=TRUE)
JBT16$Flag <- ifelse(is.na(JBT16$Rainfall),
"!", "")
nrow(JBT16)
write.csv(JBT16, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/JBT16 Flow Edited Through 04302018.csv ", row.names=F)
#JBT18
library(readr)
JBT18 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT18_1.csv",skip = 1)
nrow(JBT18)
JBT18 <- JBT18[-c(1:10), ]#Delete rows with no data
nrow(JBT18)
library(dplyr)
JBT18<-JBT18 %>% filter(!(`Sample Event` == 0 & `Input Voltage` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT18)
JBT18$DateTime_EDT<-as.POSIXct(JBT18$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT18 <- JBT18[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT18$Flag <- rep("" ,nrow(JBT18))#create flag column
JBT18$Comments <- rep("" ,nrow(JBT18))#create comments column
JBT18$Rainfall_Edited <- rep("" ,nrow(JBT18))#create Edited Flow column
JBT18$`L/15min` <- rep("" ,nrow(JBT18))#create L/15min column
JBT18$SiteName <- rep("JBT18",nrow(JBT18)) # make new column with site name
head(JBT18, n=10)# Show first ten lines of dataframe
JBT18 <- JBT18[c(9,4,3,7,8,5,6)]#ORDER COLUMNS
head(JBT18, n=10)
library(readr)
JBT18 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT18_1.csv",skip = 1)
nrow(JBT18)
JBT18 <- JBT18[-c(1:10), ]#Delete rows with no data
nrow(JBT18)
View(JBT18)
library(dplyr)
JBT18<-JBT18 %>% filter(!(`Sample Event` == 0 & `Input Voltage` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT18)
JBT18$DateTime_EDT<-as.POSIXct(JBT18$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT18 <- JBT18[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT18$Flag <- rep("" ,nrow(JBT18))#create flag column
JBT18$Comments <- rep("" ,nrow(JBT18))#create comments column
JBT18$Rainfall_Edited <- rep("" ,nrow(JBT18))#create Edited Flow column
JBT18$`L/15min` <- rep("" ,nrow(JBT18))#create L/15min column
JBT18$SiteName <- rep("JBT18",nrow(JBT18)) # make new column with site name
head(JBT18, n=10)# Show first ten lines of dataframe
JBT18 <- JBT18[c(10,5,3,8,9,6,7)]#ORDER COLUMNS
library(padr)
head(JBT18, n=10)
library(dplyr)
JBT18<-JBT18 %>% pad('15 min')#fill 15 minute data gaps
sum(is.na(JBT18$Rainfall_1))
sum(is.na(JBT18$SiteName))
which(is.na(JBT18), arr.ind=TRUE)
sum(is.na(JBT18$Rainfall))
which(is.na(JBT18), arr.ind=TRUE)
JBT18$Flag <- ifelse(is.na(JBT18$Rainfall),
"!", "")
nrow(JBT18)
write.csv(JBT18, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/JBT18 Flow Edited Through 04302018.csv ", row.names=F)
library(readr)
JBT19 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT19_1.csv",skip = 1)
nrow(JBT19)
JBT19 <- JBT19[-c(1:10), ]#Delete rows with no data
nrow(JBT19)
library(dplyr)
JBT19<-JBT19 %>% filter(!(`Sample Event` == 0 & `Input Voltage` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT19)
JBT19$DateTime_EDT<-as.POSIXct(JBT19$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT19 <- JBT19[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT19$Flag <- rep("" ,nrow(JBT19))#create flag column
JBT19$Comments <- rep("" ,nrow(JBT19))#create comments column
JBT19$Rainfall_Edited <- rep("" ,nrow(JBT19))#create Edited Flow column
JBT19$`L/15min` <- rep("" ,nrow(JBT19))#create L/15min column
JBT19$SiteName <- rep("JBT19",nrow(JBT19)) # make new column with site name
head(JBT19, n=10)# Show first ten lines of dataframe
View(JBT19)
JBT19 <- JBT19[c(9,4,3,7,8,5,6)]#ORDER COLUMNS
head(JBT19, n=10)# Show first ten lines of dataframe
library(padr)
library(dplyr)
JBT19<-JBT19 %>% pad('15 min')#fill 15 minute data gaps
sum(is.na(JBT19$Rainfall))
sum(is.na(JBT19$SiteName))
which(is.na(JBT19), arr.ind=TRUE)
JBT19$Flag <- ifelse(is.na(JBT19$Rainfall),
"!", "")
nrow(JBT19)
write.csv(JBT19, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/JBT19 Flow Edited Through 04302018.csv ", row.names=F)
library(readr)
JBT07 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT7_flowlink website export.csv",skip = 1)
nrow(JBT07)
View(JBT07)
JBT19 <- JBT19[-c(1:5), ]
JBT07 <- JBT07[-c(1:5), ]
JBT07$DateTime_EDT<-as.POSIXct(JBT07$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")
JBT07 <- JBT07[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT07$Flag <- rep("" ,nrow(JBT07))#create flag column
JBT07$Comments <- rep("" ,nrow(JBT07))#create comments column
JBT07$Rainfall_Edited <- rep("" ,nrow(JBT07))#create Edited Flow column
JBT07$`L/15min` <- rep("" ,nrow(JBT07))#create L/15min column
JBT07$SiteName <- rep("JBT07",nrow(JBT07)) # make new column with site name
head(JBT07, n=10)
JBT19 <- JBT19[c(8,3,2,6,7,4,5)]#ORDER COLUMNS
JBT07 <- JBT07[c(8,3,2,6,7,4,5)]#ORDER COLUMNS
library(padr)
library(dplyr)
JBT07<-JBT07 %>% pad('15 min')#fill 15 minute data gaps
sum(is.na(JBT07$Rainfall_1))
sum(is.na(JBT07$SiteName))
which(is.na(JBT07), arr.ind=TRUE)
JBT07$Flag <- ifelse(is.na(JBT07$Rainfall),
"!", "")
JBT07$Flag <- ifelse(is.na(JBT07$Rainfall_1),
"!", "")
nrow(JBT07)
write.csv(JBT07, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/JBT07 Flow Edited Through 04302018.csv ", row.names=F)
library(readr)
JBT06 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT06_1.csv",skip = 1)
nrow(JBT06)
View(JBT06)
JBT06 <- JBT06[-c(1:10), ]#Delete rows with no data
nrow(JBT06)
library(readr)
JBT06 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT06_1.csv",skip = 1)
nrow(JBT06)
View(JBT06)
View(JBT06)
JBT06 <- JBT06[-c(1:10), ]#Delete rows with no data
nrow(JBT06)
JBT06$DateTime_EDT<-as.POSIXct(JBT06$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT06 <- JBT06[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
library(readr)
JBT06 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT06_1.csv",skip = 1)
nrow(JBT06)
JBT06 <- JBT06[-c(1:10), ]#Delete rows with no data
nrow(JBT06)
JBT06$DateTime_EDT<-as.POSIXct(JBT06$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")
JBT06 <- JBT06[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT06$Flag <- rep("" ,nrow(JBT06))#create flag column
JBT06$Comments <- rep("" ,nrow(JBT06))#create comments column
JBT06$Level_Edited <- rep("" ,nrow(JBT06))#create Edited Flow column
JBT06$SiteName <- rep("JBT06",nrow(JBT06)) # make new column with site name
JBT06 <- JBT06[c(15,11,6,8,9,14,12,13)]
library(padr)
library(dplyr)
JBT06<-JBT06 %>% pad('1 min')
sum(is.na(JBT06$Level))
sum(is.na(JBT06$SiteName))
which(is.na(JBT06), arr.ind=TRUE)
library(readr)
JBT06 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT06_1.csv",skip = 1)
nrow(JBT06)
JBT06 <- JBT06[-c(1:10), ]#Delete rows with no data
nrow(JBT06)
JBT06$DateTime_EDT<-as.POSIXct(JBT06$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT06 <- JBT06[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT06$Flag <- rep("" ,nrow(JBT06))#create flag column
JBT06$Comments <- rep("" ,nrow(JBT06))#create comments column
JBT06$Level_Edited <- rep("" ,nrow(JBT06))#create Edited Flow column
JBT06$SiteName <- rep("JBT06",nrow(JBT06)) # make new column with site name
head(JBT06, n=10)# Show first ten lines of dataframe
JBT06 <- JBT06[c(15,11,6,8,9,14,12,13)]#ORDER COLUMNS
library(dplyr)
JBT06<-JBT06 %>% filter(!(`Level` == "NA" & `Input Voltage` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT06)
library(dplyr)
JBT06<-JBT06 %>% filter(!(`Level` == "NA"))#Delete rows based on 2 column conditions.
nrow(JBT06)
library(padr)
library(dplyr)
JBT06<-JBT06 %>% pad('1 min')#fill 1 minute data gaps
sum(is.na(JBT06$Level))
sum(is.na(JBT06$SiteName))
which(is.na(JBT06), arr.ind=TRUE)
JBT06$Flag <- ifelse(is.na(JBT06$Rainfall),
"!", "")
nrow(JBT06)
write.csv(JBT06, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/R/JBT06 Flow Edited Through 04302018.csv ", row.names=F)
library(readr)
JBT05 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT5_flowlink website export.csv",skip = 1)
nrow(JBT05)
View(JBT05)
BT05 <- JBT05[-c(1:5), ]#Delete rows with no data
JBT05$DateTime_EDT<-as.POSIXct(JBT05$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT05 <- JBT05[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT05$Flag <- rep("" ,nrow(JBT05))#create flag column
JBT05$Comments <- rep("" ,nrow(JBT05))#create comments column
JBT05$Rainfall_Edited <- rep("" ,nrow(JBT05))#create Edited Flow column
JBT05$`L/15min` <- rep("" ,nrow(JBT05))#create L/15min column
JBT05$SiteName <- rep("JBT05",nrow(JBT05)) # make new column with site name
library(readr)
JBT05 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT5_flowlink website export.csv",skip = 1)
nrow(JBT05)
JBT05 <- JBT05[-c(1:5), ]#Delete rows with no data
JBT05$DateTime_EDT<-as.POSIXct(JBT05$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT05 <- JBT05[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT05$Flag <- rep("" ,nrow(JBT05))#create flag column
JBT05$Comments <- rep("" ,nrow(JBT05))#create comments column
JBT05$Rainfall_Edited <- rep("" ,nrow(JBT05))#create Edited Flow column
JBT05$`L/15min` <- rep("" ,nrow(JBT05))#create L/15min column
JBT05$SiteName <- rep("JBT05",nrow(JBT05)) # make new column with site name
JBT05 <- JBT05[c(7,2,1,5,6,3,4)]#ORDER COLUMNS
library(padr)
library(dplyr)
JBT05<-JBT05 %>% pad('15 min')#fill 15 minute data gaps
sum(is.na(JBT05$Rainfall_1))
sum(is.na(JBT05$SiteName))
which(is.na(JBT05), arr.ind=TRUE)
library(padr)
library(dplyr)
JBT05<-JBT05 %>% pad('15 min')#fill 15 minute data gaps
sum(is.na(JBT05$Rainfall_))
sum(is.na(JBT05$SiteName))
which(is.na(JBT05), arr.ind=TRUE)
JBT05$Flag <- ifelse(is.na(JBT05$Rainfall_1),
"!", "")
nrow(JBT05)
write.csv(JBT05, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/R/JBT05 Flow Edited Through 04302018.csv ", row.names=F)
library(readr)
JBT06 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT6_flowlink website export.csv",skip = 1)
nrow(JBT06)
View(JBT06)
JBT06 <- JBT06[-c(1:5), ]#Delete rows with no data
JBT06$DateTime_EDT<-as.POSIXct(JBT06$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")
JBT06 <- JBT06[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT06$Flag <- rep("" ,nrow(JBT06))#create flag column
JBT06$Comments <- rep("" ,nrow(JBT06))#create comments column
JBT06$Level_Edited <- rep("" ,nrow(JBT06))#create Edited Flow column
JBT06$SiteName <- rep("JBT06",nrow(JBT06)) # make new column wit
JBT06 <- JBT06[c(7,3,1,6,4,5)]#ORDER COLUMNS
JBT06 <- JBT06[c(7,3,1,6,4,5)]#ORDER COLUMNS
library(padr)
library(dplyr)
JBT06<-JBT06 %>% pad('1 min')#fill 15 minute data gaps
sum(is.na(JBT06$Level))
sum(is.na(JBT06$SiteName))
which(is.na(JBT06), arr.ind=TRUE)
#JBT06program formatted for website export file
library(readr)
JBT06 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT6_flowlink website export.csv",skip = 1)
nrow(JBT06)
JBT06 <- JBT06[-c(1:5), ]#Delete rows with no data
JBT06$DateTime_EDT<-as.POSIXct(JBT06$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT06 <- JBT06[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT06$Flag <- rep("" ,nrow(JBT06))#create flag column
JBT06$Comments <- rep("" ,nrow(JBT06))#create comments column
JBT06$Level_Edited <- rep("" ,nrow(JBT06))#create Edited Flow column
JBT06$SiteName <- rep("JBT06",nrow(JBT06)) # make new column with site name
head(JBT06, n=10)# Show first ten lines of dataframe
JBT06 <- JBT06[c(7,3,1,6,4,5)]#ORDER COLUMNS
library(padr)
library(dplyr)
JBT06<-JBT06 %>% pad('1 min')#fill 1 minute data gaps
sum(is.na(JBT06$Level))
sum(is.na(JBT06$SiteName))
which(is.na(JBT06), arr.ind=TRUE)
View(JBT06)
library(readr)
JBT06 <- read_csv("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Flowlink downloads/RAW FLOWLINK/May2018/JBT6_flowlink website export.csv",skip = 1)
nrow(JBT06)
JBT06 <- JBT06[-c(1:5), ]#Delete rows with no data
JBT06$DateTime_EDT<-as.POSIXct(JBT06$`Isco Quantity`, format="%m/%d/%Y %H:%M",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
JBT06 <- JBT06[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
JBT06$Flag <- rep("" ,nrow(JBT06))#create flag column
JBT06$Comments <- rep("" ,nrow(JBT06))#create comments column
JBT06$Level_Edited <- rep("" ,nrow(JBT06))#create Edited Flow column
JBT06$SiteName <- rep("JBT06",nrow(JBT06))
JBT06 <- JBT06[c(6,2,1,5,3,4)]
library(padr)
library(dplyr)
JBT06<-JBT06 %>% pad('1 min')#fill 1 minute data gaps
sum(is.na(JBT06$Level))
sum(is.na(JBT06$SiteName))
which(is.na(JBT06), arr.ind=TRUE)
JBT06$Flag <- ifelse(is.na(JBT06$Rainfall_1),
"!", "")
nrow(JBT06)
write.csv(JBT06, file= "O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/R/JBT06_2 Flow Edited Through 04302018.csv ", row.names=F)
library(readr)
Bart <- read_csv("V:/CR300 Bartlett IP_FiveMin.dat",skip = 1)
View(Bart)
Bart <- Bart[-c(1, 2), ]#REMOVE FIRST TWO ROWS
Bart <- Bart[, -c(3:7,9:13)]#REMOVE COLUMNS
Bart$DateTime_EDT<-as.POSIXct(Bart$TIMESTAMP, format="%Y-%m-%d %H:%M:%S",tz="Etc/GMT+4")#SET TIMESTAMP FORMATTING TO EST
Bart <- Bart[, -c(1)]#REMOVE OLD TIMESTAMP COLUMN
library(data.table)
setnames(Bart, old = c('Stage_Avg'), new = c('AvgStage_ft'))#RENAME COLUMNS
Bart$Flag <- rep("" ,nrow(Bart))#create flag column
Bart$Site <- rep("Bartlett",nrow(Bart)) # make new column with PRISM site name
Bart <- Bart[c(5,3,1,2,4)]#ORDER COLUMNS
head(Bart, n=10)
Bart042018 <- subset(Bart, DateTime_EDT >=as.POSIXct('2017-12-31 23:00') #Select month of interest
& DateTime_EDT < as.POSIXct('2018-05-01 00:00'))
library(padr)
library(dplyr)
Bart042018<-Bart042018 %>% pad('5 min')#fill 5 minute data gaps
sum(is.na(Bart042018$RECORD))
which(is.na(Bart042018), arr.ind=TRUE)
Bart042018$Flag <- ifelse(is.na(Bart042018$AvgStage_ft),
"!", "")
Bart042018$RECORD[is.na(Bart042018$RECORD)] <- -999
nrow(Bart042018)
write.csv(Bart042018, file= "O:/Proj-15/WRM/15-200 VTDEC Streamflow Monitoring for ms4 Communities/Data/stage measurements/Edited/2018/Bartlett_stage_5min_April_R.csv", row.names=F)
setwd("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/R")
JBT6 <- read.csv(file="JBT06_Final Edited Flow.csv")
JBT6$DT<-as.POSIXct(JBT6$DateTime_EDT, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
JBT5 <- read.csv(file="JBT05_FlowMeter.csv")
JBT5$DT<-as.POSIXct(JBT5$Datetime, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
JBT1 <- read.csv(file="JBT01.csv")
JBT1$DT<-as.POSIXct(JBT1$Datetime, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
library(plotly)
library(ggplot2)
library(xts)
library(dygraphs)
jbt6xts<-xts(x=JBT6$Flow_Lperelapsedtime,order.by=JBT6$DT)
jbt5xts<-xts(x=JBT5$L.15min,order.by=JBT5$DT)
jbt1xts<-xts(x=JBT1$L.15min,order.by=JBT1$DT)
JBT1_5_6<-cbind(jbt6xts,jbt5xts,jbt1xts)
dygraph(JBT1_5_6)%>%dySeries("..1", label = "jbt6") %>%dySeries("..2", label = "jbt5")%>%dySeries("..3", label = "jbt1") %>%dyRangeSelector()
dygraph(jbt6xts)
setwd("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/R")
JBT6 <- read.csv(file="JBT06_Final Edited Flow.csv")
JBT6$DT<-as.POSIXct(JBT6$DateTime_EDT, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
JBT5 <- read.csv(file="JBT05_FlowMeter.csv")
JBT5$DT<-as.POSIXct(JBT5$Datetime, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
JBT1 <- read.csv(file="JBT01.csv")
JBT1$DT<-as.POSIXct(JBT1$Datetime, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
library(plotly)
library(ggplot2)
library(xts)
library(dygraphs)
jbt6xts<-xts(x=JBT6$Flow_Lperelapsedtime,order.by=JBT6$DT)
setwd("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/R")
JBT6 <- read.csv(file="JBT06_Final Edited Flow.csv")
JBT6$DT<-as.POSIXct(JBT6$DateTime_EDT, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
library(plotly)
library(ggplot2)
library(xts)
library(dygraphs)
jbt6xts<-xts(x=JBT6$Flow_Lperelapsedtime,order.by=JBT6$DT)
dygraph(jbt6xts)
jbt6xts<-xts(x=JBT6$Flow_Lperelapsedtime,order.by=JBT6$DT)
dygraph(jbt6xts)
jbt6xts<-xts(x=JBT6$Flow_Lperelapsedtime,order.by=JBT6$DT)
dygraph(jbt6xts)
setwd("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/R")
JBT6 <- read.csv(file="JBT06_Final Edited Flow.csv")
JBT6$DT<-as.POSIXct(JBT6$DateTime_EDT, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
library(plotly)
library(ggplot2)
library(xts)
library(dygraphs)
View(JBT6)
jbt6xts<-xts(x=JBT6$Corrected.Flow_L.elapsed.time,order.by=JBT6$DT)
dygraph(jbt6xts)
setwd("O:/Proj-15/WRM/15-309 LCBP Jewett Brook Tile Drain Study/Data/Loading Calcs/FlowLinkEditedFiles/R")
JBT6 <- read.csv(file="JBT06_Final Edited Flow.csv")
JBT6$DT<-as.POSIXct(JBT6$DateTime_EDT, format="%m/%d/%Y %H:%M",tz="etc/gmt+4")
library(plotly)
library(ggplot2)
library(xts)
library(dygraphs)
jbt6xts<-xts(x=JBT6$Corrected.Flow_L.elapsed.time,order.by=JBT6$DT)
dygraph(jbt6xts)
dygraph(jbt6xts)%>%dyRangeSelector()
